From 2165957749e4874425b5c03f079b23725b331819 Mon Sep 17 00:00:00 2001 From: Justin Burkett Date: Thu, 25 Nov 2021 21:32:18 -0500 Subject: [PATCH] Allow binding to symbols in which-key-C-h-dispatch Fixes #326 --- which-key.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/which-key.el b/which-key.el index 1daebc94241..e55197ee4a0 100644 --- a/which-key.el +++ b/which-key.el @@ -2379,7 +2379,10 @@ prefix) if `which-key-use-C-h-commands' is non nil." " 1..9" which-key-separator "digit-arg")) 'face 'which-key-note-face))) - (key (string (read-key prompt))) + (key (let ((key (read-key prompt))) + (if (numberp key) + (string key) + (vector key)))) (cmd (lookup-key which-key-C-h-map key)) (which-key-inhibit t)) (if cmd (funcall cmd key) (which-key-turn-page 0))))))) -- 2.30.2